home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / theorems / Pascal.T < prev    next >
Encoding:
Text File  |  1994-08-02  |  1.0 KB  |  26 lines
  1. .geometry "version 0.1";
  2. v1 = .free(-0.434783, 0.320652, .L0, "1");
  3. v2 = .free(0.307065, 0.415761, .L0, "2");
  4. v3 = .free(-0.0869565, 0.0788044, .L0, "3");
  5. v4 = .free(-0.266304, -0.298913, .L0, "4");
  6. v5 = .free(-0.605978, -0.271739, .L0, "5");
  7. c = .conic.vvvvv(v1, v2, v3, v4, v5);
  8. w1 = .vonconic(c, -0.440641, -0.0724582, .red);
  9. w2 = .vonconic(c, -0.429923, 0.284237, .red);
  10. w3 = .vonconic(c, -0.262394, -0.357007, .red);
  11. w4 = .vonconic(c, -0.756163, -0.404071, .red);
  12. w5 = .vonconic(c, -0.163602, 0.00144681, .red);
  13. w6 = .vonconic(c, 0.349226, 0.450387, .red);
  14. l1 = .l.vv(w3, w4, .red, .L0, .longline);
  15. l2 = .l.vv(w4, w6, .red, .L0, .longline);
  16. l3 = .l.vv(w6, w2, .red, .L0, .longline);
  17. l4 = .l.vv(w2, w5, .red, .L0, .longline);
  18. l5 = .l.vv(w5, w1, .red, .L0, .longline);
  19. l6 = .l.vv(w1, w3, .red, .L0, .longline);
  20. v6 = .v.ll(l6, l3, .yellow, .L0, .plus);
  21. v7 = .v.ll(l1, l4, .yellow, .L0, .plus);
  22. v8 = .v.ll(l5, l2, .yellow, .L0, .plus);
  23. l7 = .l.vv(v6, v7, .yellow, .L0);
  24. l8 = .l.vv(v7, v8, .yellow, .L0);
  25. l9 = .l.vv(v8, v6, .yellow, .L0);
  26.